home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
workbench werkzeuge
/
guis für programme
/
xanim guis
/
sonivisgui
/
xanim_gui1.1
< prev
next >
Wrap
Text File
|
1996-04-07
|
947b
|
45 lines
;Xanim(BETA) GUI file viewer V1.1
;©1995 Ivan Smith
;For WorBench 3.X+ ONLY!
;Requestchoice and Request File must be in you C: dir.
LAB start
;Audio Enabled or not?
C:Requestchoice >env:Xoperat "Play With Audio or Not?""Choose A Method""audio""silent"
;Variables for Requestchoice
IF $Xoperat eq "0"
skip silent
ENDIF
IF $Xoperat eq "1"
skip audio
ENDIF
IF $Xoperat eq "2"
C:endcli
ENDIF
;Call the better vision player
LAB silent
;Sets environment variables for X11
setenv X11/askmode 1
setenv X11/gfxcard 1
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Which Vision File?"
;Set big enough stack for XANIM
Stack 50000
run Xamiga +f $Xfilename
C:endcli
;Call the Audio version
LAB audio
;Sets environment variables for X11
setenv X11/askmode 1
setenv X11/gfxcard 1
;Set big enough stack for XANIM
Stack 50000
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Which Vision File?"
run C:Xanim +Ae +b +f $Xfilename
C:endcli
;END